clear 
graph drop _all

use "$P_Data_Processed/weather_pccount_4week_e5.dta", clear 
sort avgdate 
histogram avgdate, color(gray) percent xtitle("Date") name(d4_a) title("(a) Number of Price Changes & Weather",size(small))


use "$P_Data_Processed/pccount_pcresponse_4week_e5.dta", clear 
sort avgdate 
histogram avgdate, color(gray) percent xtitle("Date") name(d4_b) title("(b) Number of Price Changes & Rival Response Time",size(small))

use "$P_Data_Processed/pccount_oil_4week_e5.dta", clear 
sort avgdate 
histogram avgdate, color(gray) percent xtitle("Date") name(d4_c) title("(c) Number of Price Changes & Oil",size(small))

use "$P_Data_Processed/pcresponse_oil_4week_e5.dta", clear 
sort avgdate 
histogram avgdate, color(gray) percent xtitle("Date") name(d4_d) title("(d) Rival Response Time & Oil",size(small))

use "$P_Data_Processed/weather_oil_4week_e5.dta", clear 
sort avgdate 
histogram avgdate, color(gray) percent xtitle("Date") name(d4_e) title("(e) Weather & Oil",size(small))

use "$P_Data_Processed/weather_pcresponse_4week_e5.dta", clear 
sort avgdate 
histogram avgdate, color(gray) percent xtitle("Date") name(d4_f) title("(f) Rival Reponse Time & Weather ",size(small))


graph combine d4_a d4_b d4_c d4_d d4_e d4_f, col(2) 
graph export "$P_Figures/Figure_D4.eps", replace 
